home *** CD-ROM | disk | FTP | other *** search
/ Cine Live 60 / Cine Live 60.iso / pc / Scripts / DefaultCursors.k < prev    next >
Encoding:
Text File  |  1999-05-01  |  2.8 KB  |  173 lines
  1. module oCursorList is cCursorList
  2. has
  3.     InitializeRuntime(theRuntime)
  4.         do
  5.             theRuntime.BusyCursor := oBusyCursor;
  6.             theRuntime.InCursor := oArrowCursor;
  7.             theRuntime.OutCursor := oDontCursor;
  8.         end;
  9. with
  10.     URL is "./DefaultCursors.pic";
  11.     Items is [
  12.         oEmptyCursor,
  13.         oArrowCursor,
  14.         oFingerCursor,
  15.         oPlusCursor,
  16.         oQueryCursor,
  17.         oDontCursor,
  18.         oTargetCursor,
  19.         oCrossCursor,
  20.         oWatchCursor,
  21.         oBusyCursor,
  22.         oHandCursor,
  23.         oEarthCursor,
  24.         oOpenHandCursor,
  25.         oClosedHandCursor
  26.     ];
  27. end;
  28.  
  29. object oEmptyCursor is cCursor
  30. with
  31.     HotSpotX is 0;
  32.     HotSpotY is 0;
  33.     release Editor:
  34.         Identifier is "oEmptyCursor";
  35.         Name is "Empty";
  36.     end;
  37. end;
  38.  
  39. object oArrowCursor is cCursor
  40. with
  41.     HotSpotX is 4;
  42.     HotSpotY is 1;
  43.     release Editor:
  44.         Identifier is "oArrowCursor";
  45.         Name is "Arrow";
  46.     end;
  47. end;
  48.  
  49. object oFingerCursor is cCursor
  50. with
  51.     HotSpotX is 7;
  52.     HotSpotY is 0;
  53.     release Editor:
  54.         Identifier is "oFingerCursor";
  55.         Name is "Finger";
  56.     end;
  57. end;
  58.  
  59. object oPlusCursor is cCursor
  60. with
  61.     HotSpotX is 7;
  62.     HotSpotY is 7;
  63.     release Editor:
  64.         Identifier is "oPlusCursor";
  65.         Name is "Plus";
  66.     end;
  67. end;
  68.  
  69. object oQueryCursor is cCursor
  70. with
  71.     HotSpotX is 2;
  72.     HotSpotY is 4;
  73.     release Editor:
  74.         Identifier is "oQueryCursor";
  75.         Name is "Query";
  76.     end;
  77. end;
  78.  
  79. object oDontCursor is cCursor
  80. with
  81.     HotSpotX is 7;
  82.     HotSpotY is 7;
  83.     release Editor:
  84.         Identifier is "oDontCursor";
  85.         Name is "Don\'t";
  86.     end;
  87. end;
  88.  
  89. object oTargetCursor is cCursor
  90. with
  91.     HotSpotX is 7;
  92.     HotSpotY is 7;
  93.     release Editor:
  94.         Identifier is "oTargetCursor";
  95.         Name is "Target";
  96.     end;
  97. end;
  98.  
  99. object oCrossCursor is cCursor
  100. with
  101.     HotSpotX is 7;
  102.     HotSpotY is 7;
  103.     release Editor:
  104.         Identifier is "oCrossCursor";
  105.         Name is "Cross";
  106.     end;
  107. end;
  108.  
  109. object oWatchCursor is cAnimatedCursor
  110. with
  111.     CursorCount is 7;
  112.     HotSpotX is 8;
  113.     HotSpotY is 8;
  114.     release Editor:
  115.         Identifier is "oWatchCursor";
  116.         Name is "Watch";
  117.     end;
  118. end;
  119.  
  120. object oBusyCursor is cAnimatedCursor
  121. with
  122.     CursorCount is 4;
  123.     HotSpotX is 7;
  124.     HotSpotY is 7;
  125.     release Editor:
  126.         Identifier is "oBusyCursor";
  127.         Name is "Busy";
  128.     end;
  129. end;
  130.  
  131. object oHandCursor is cAnimatedCursor
  132. with
  133.     CursorCount is 6;
  134.     HotSpotX is 7;
  135.     HotSpotY is 0;
  136.     release Editor:
  137.         Identifier is "oHandCursor";
  138.         Name is "Hand";
  139.     end;
  140. end;
  141.  
  142. object oEarthCursor is cAnimatedCursor
  143. with
  144.     CursorCount is 7;
  145.     HotSpotX is 7;
  146.     HotSpotY is 7;
  147.     release Editor:
  148.         Identifier is "oEarthCursor";
  149.         Name is "Earth";
  150.     end;
  151. end;
  152.  
  153. object oOpenHandCursor is cCursor
  154. with
  155.     HotSpotX is 7;
  156.     HotSpotY is 0;
  157.     release Editor:
  158.         Identifier is "oOpenHandCursor";
  159.         Name is "Open Hand";
  160.     end;
  161. end;
  162.  
  163. object oClosedHandCursor is cCursor
  164. with
  165.     HotSpotX is 7;
  166.     HotSpotY is 3;
  167.     release Editor:
  168.         Identifier is "oClosedHandCursor";
  169.         Name is "Closed Hand";
  170.     end;
  171. end;
  172.  
  173.